Set fso = CreateObject("Scripting.FileSystemObject")

Set folder = fso.GetFolder("D:\Download\Downloads")

Set files = folder.Files

While True
	For each folderIdx in files

		If folderIdx.Type = "TORRENT File" Then

			fso.MoveFile folderIdx.Path, "D:\Download\UT\Torrents\New\" & folderIdx.Name

		End If
	Next
	
	WScript.Sleep(5000)

Wend